--      Parameter(I0  =400,JMax=50)
      Parameter(I0  =200,JMax=50)
--      Parameter(I0  =100,JMax=50)
--      Parameter(I0  =30,JMax=10)
      Parameter(IMax=2*I0-1)
